home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
VISUALBA
/
VBUTIL.ZIP
/
SHAPES.FRM
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1993-03-04
|
12KB
|
383 lines
Form1
Shape Tester
Form1%
MouseCoordBox
QuitCom
&Quit
ScreenCom
&Screen
ClearCom
Clear
SaveAsCom
Save As
LoadCom
ShapeCom
S&hape
PointCom
Point
LineCom
RectangleCom
Rectangle
ArcCom
EllipseCom
Ellipse
CircleCom
Circle
EraserCom
Eraser
TextCom
FillStyleCom
&Fill Style
SolidCom
Solid
TransparentCom
Transparent
HLineCom
Horizontal Line
VLineCom
Vertical Line
UpDiagCom
Upward Diagonal
DownDiagCom
Downward Diagonal
CrossCom
Cross
DiagCrossCom
Diagonal Cross
ColorCom
&Color
BlackCom
Black
BlueCom
GreenCom
Green
CyanCom
RedCom
MagentaCom
Magenta
YellowCom
Yellow
WhiteCom
White
GrayCom
LineWidthCom
Line &Width
Size1Com
Size3Com
Size5Com
Size8Com
LineStyleCom
&Line Style
SolidLineCom
Solid line
) DashesCom
Dashes
DotsCom
DashDotCom
Dash-Dot pattern
DashDotDotCom
Dash-dot-dot pattern
InvisibleCom
Invisible line
InsideSolidCom
Inside solid
Form_Clickv
@ Form_LoadY
DateFormatOpt?
Value>
TimeFormat
TimeFormatOpt*
NowBtn_Click
TextBox
QuitBtn_ClickV
CountryCmb_Change%
CountryCmbI
ComboItemm
VScroll1_Change
TimeScl_Changed
ScrollBarValueBox
TimeSclc
ScrollValueBox
Label1_Click
TimerBtn_Click&
CountO
Total
TextLine
TimerBtna
Caption
ScrollValueBox_Change
MaxLbl_Click~
TextBox_Change@
TextBox_LostFocus
QuitBtn
Enabled
False
MIN_VALUE
MAX_VALUE
MinLble
MaxLbl
SmallChange
LargeChange
properties
PrintBtn_Click
Filename
CurrentLineNumber$
MAX_LINES/
PrintHeadingq
Printer
BadFile
ExitSub
PrintHadingW
PageNumber0
PageNum}
PageNumStr0
PrintTab
TAB_SIZE
PageNumberStr
TextBox_KeyPress
KeyAscii
QuitCom_Click{
ClearCom_Click
IsFirst
Form_MouseDown+
ButtonK
Shift
ClearShapesm
PointCom
Checked
LineComb
RectangleCom
ArcCom*
EllipseCom
CircleCom1
ArcCom_Click
ArcComComR
CircleCom_Click%
EllipseCom_Clicks
LineCom_Click
PointCom_ClickW
RectangleCom_Click
ShapeCom_Click
Radius7
WindowState
TextComH
TextCom_Click
CurrentX.
CurrentY
ClearFillStyle`
SolidComp
TransparentCom
HLineCom=
VLineCom?
UpDiagCom
DownDiagCom
CrossCom
DiagCrossComT
ClearColors&
BlackCom
BlueComy
GreenComd
CyanCom
RedCom
MagentaCom
YellowCom
WhiteComU
GrayCom@
ColorCom_Click
FillStyleCom_Click
BlackCom_Click
BlueCom_Click
CyanCom_Click^ @
DiagCrossCom_Click
DownDiagCom_Click
GrayCom_Click
GreenCom_Clicks
HLineCom_Clickb
MagentaCom_Click
RedCom_Click
SolidCom_Click
TransparentCom_Click+
UpDiagCom_Click
VLineCom_Click
WhiteCom_Click
YellowCom_Clickk
ColorNum~
QBColorNumC
FillColor
CrossCom_Click
FillStyle
BackColorL
TheColor
CurveCom
CurveCom_Click
CurveConT
Form_MouseMove
CurrenYP
DrawWidth
DrawStyle
@ ClearSize
Size1Com
Size3Com
Size5Com
Size8Com
Size1Com_Click
Size3Com_Click
Size5Com_Click/ @
Size8Com_Click
ClearDrawStyle
SolidLineComi
DashesCom
DahesCom_Click
DotsComw
DashDorCom
DashDotCom
DashDotDotComC
Invibible
InvibibleCom
InsideSolidCom
DotCom
InvisibleCom
SolidLineCom_Click)
DashesCom_Click
DashesComCom
DotsCom_Click=
DashDotCom_Click
DashDotDotCom_Clickl
InsideSolidCom_Click
InvisibleCom_Click
LineWidthCom
LineStyleCom
LineWidth
MousePointer
DrawMode3
AutoRedraw
WHITE
ForeColor
BLACK
SOLID
DASH_DOT
DASH_DOT_DOT)
INSIDE_SOLIDw
INVISIBLE
DIAGONAL_CROSS`
DOWNWARD_DIAGONAL
HORIZONTAL_LINE
TRANSPARENT
UPWARD_DIAGONAL
VERTICAL_LINE
CROSS-
EraserCom
EraserCom_Clickt
LineStyleCom_Click
Form_DragOverH
Source
State9
MouseDown
EraseCom
MouseIsDownX
Form_MouseUp
SaveAsCom_Click
Image
LineWidthCom_Click
LoadCom_Click
Picture
BMPfile
File6
ScreenCom_Click
BadBMPinput
ExitBMPinput
BadBMPoutput
ExitBMPoutputO
Form_KeyPress#
TempColorB
ForColor
FoerColor
MouseCoordBox
Form_KeyDown
KeyCode
Form1
Form_KeyUp
TextStr
##0.0
ArcCom_Click
BlackCom_Click
BlueCom_Click
CircleCom_Click
ClearColors
clear pending point?
ClearCom_Click
ClearDrawStyle
clear pending point?
ClearFillStyle
clear pending point?
ClearShapes
clear pending point?
ClearSize
clear pending point?
CrossCom_Click
CyanCom_Click
DashDotCom_Click
DashDotDotCom_Click
DashesCom_Click
DiagCrossCom_Click
DotsCom_Click
DownDiagCom_Click
EllipseCom_Click
EraserCom_Click
Form_Load
SHAPES.BMP
Cross
select defaults
Form_MouseDown
calculate pie
get the color using the QuickBasic color code
* Eraser
change mouse cursor
* Text
Enter text
Text Input
* Point
* Line
* Rectangle
* Arc
* Circle
* Ellipse
Form_MouseMove
if mouse is still down and the Eraser is selected
erase the graphics at the current coordinates
Form_MouseUp
restore mouse cursore
GrayCom_Click
GreenCom_Click
HLineCom_Click
InsideSolidCom_Click
InvisibleCom_Click
LineCom_Click
LoadCom_Click
Enter filename
Cannot read file
File I/O Error
MagentaCom_Click
PointCom_Click
make the points noticable!
QuitCom_Click
RectangleCom_Click
RedCom_Click
SaveAsCom_Click
Enter filename
Save As
Cannot write to file
File I/O Error
Size1Com_Click
Size3Com_Click
Size5Com_Click
Size8Com_Click
SolidCom_Click
SolidLineCom_Click
TextCom_Click
TransparentCom_Click
UpDiagCom_Click
VLineCom_Click
WhiteCom_Click
YellowCom_Click